10 REM **************************************************** 
100 REM **************************************************** 
1000 IF
1010 ON ERROR
1020 IF
1030 IF
1040 IF
1050 IF
1060 ON ERROR
1070 IF
1080 CLS
1090 PRINT
110 REM 
1100 LOCATE
1110 REM +++ Line 1170 in  INPDATA.ACB  is wrong +++
1120 REM +++ Memory banks start at No 1 (not 0)  +++
1130 FOR
1140 TRAP
1150 CLEAR KEY
1160 BOOM
1170 RESUME
1180 ON ERROR
1190 CLS
120 KEY
1200 GOTO
1210 REM 
1220 REM rkably, that's all 
1230 REM ~~~~~~~~~~~~~~~~~~ 
130 DIM
140 FOR
150 DIM
160 VARNAME
170 FOR
180 READ
190 POKE
20 REM *  Program name   : INPDATA2.ACB                   * 
200 NEXT
210 DATA
220 DATA
230 DATA
240 DATA
250 DATA
260 DATA
270 DATA
280 DATA
290 DATA
30 REM *  Function       : STOS bank data entry facility  * 
300 DATA
310 DATA
320 DATA
330 DATA
340 DATA
350 DATA
360 DATA
370 TRAP
380 CLS
390 LOCATE
40 REM *  Original author: Francois Lionet                * 
400 LOCATE
410 LOCATE
420 LOCATE
430 IF
440 REPEAT
450 IF
460 CLS
470 LOCATE
480 PRINT
490 PRINT
50 REM *  Updated by     : Edgar Evans                    * 
500 PRINT
510 LOCATE
520 CLS
530 HOME
540 PRINT
550 PRINT
560 LOCATE
570 WINDOPEN
580 FOR
590 LOCATE
60 REM *                   & Laurence Myears              * 
600 NEXT
610 HOME
620 RESERVE
630 VARNAME
640 IF
650 REM 
660 REM +++  Load a partfile  ++++++++ 
670 GOTO
680 ON ERROR
690 REM +++ Add length of partfile to start address +++
70 REM *  Why updated    : To allow the user to save and  * 
700 OPEN IN
710 REM 
720 REPEAT
730 TRAP
740 VARNAME
750 VARNAME
760 IF
770 IF
780 PUT KEY
790 IF
80 REM *                   reload partwork,               * 
800 CENTRE
810 LOCATE
820 IF
830 IF
840 NEXT
850 LOCATE
860 IF
870 VARNAME
880 IF
890 VARNAME
90 REM *                   & to redefine numeric keypad.  * 
900 FOR
910 NEXT
920 PRINT
930 VARNAME
940 CLS
950 REM 
960 REM 
970 VARNAME
980 IF
990 IF